-- card: 9232 from stack: in
-- bmap block id: 6936
-- flags: 0000
-- background id: 2611
-- name: 


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=146 top=241 right=318 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PteroButton
----- HyperTalk script -----
on mouseUp
  visual effect scroll up
  go to stack Dinosaurs
end mouseUp


-- part 6 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=200 top=46 right=82 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Title


-- part 7 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=95 top=158 right=229 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Info


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=161 top=45 right=94 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PleaseButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=406 top=103 right=155 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CeraButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=415 top=215 right=242 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: StegoButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=307 top=237 right=293 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HadroButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=35 top=214 right=279 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CarnoButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=20 top=37 right=149 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: IchtyoButton
----- HyperTalk script -----
on mouseUp
  doButton
end mouseUp



-- part 8 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=23 top=56 right=283 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Stage 2


-- part contents for card part 8
----- text -----
on mouseUp
put the short name of target into buttonName
hide msg
push card
go to stack "Dinosaurs"
get the rect of card button buttonName
choose select tool
drag from (item 1 of it),(item 2 of it) to (item 3 of it),(item 4 of it)
doMenu Copy Picture
pop card
doMenu Paste Picture
doMenu "Transparent"
put the rect of card button buttonName into endRect
drag from (item 1 of it),(item 2 of it) to (item 1 of endRect),(item 2 of endRect)
choose browse tool
put "on mouseUp" into line 1 of newScript
put "visual effect scroll up" into line 2 of newScript
put "go to stack Dinosaurs" into line 3 of newScript
put "end mouseUp" into line 4 of newScript
set the script of card button buttonName to newScript
end mouseUp

-- part contents for card part 7
----- text -----
Stack programmed
by Jon Pugh